Recht so – Links rum!
Wer aus dem ALV-Grid Zahlen kopieren möchte, der erlebt eine Überraschung, wenn im Grid negative Werte dargestellt werden:
Copy&Paste oder Export
Die Ausrichtung wird korrekt vorgenommen, wenn du das gesamte Grid exportierst oder Excel-Inplace öffnest.
Manchmal möchte man aber nur einen markierten Teil kopieren (STRG+Y / Markieren / STRG+C).
Mit folgendem Visual-Basic-Makro “mivorenali – MInus VOn REchts NAch LInks” kannst du das Vorzeichen von rechts nach links setzen und das Feld wird wieder als Zahl formatiert. Einfach den gewünschten Zellenbereich markieren und das Makro starten.
Sollte es ein sehr großer Bereich sein, ist es evtl. sinnvoll, die Aktualisierung des Arbeitsblattes auszuschalten:
Application.ScreenUpdating = False
Code
Sub mivorenali()
Dim objCell As Range
Dim vntValue As Variant
If TypeOf Selection Is Excel.Range Then
'Application.ScreenUpdating = False
'Durchlaufe alle markierten Zellen
For Each objCell In Selection
'Wert der Zelle an Variable übergeben
vntValue = objCell.Value
'Wenn der Wert nicht leer ist
If Not IsEmpty(vntValue) Then
If Right(vntValue, 1) = "-" Then
objCell.Value = "-" & Left(vntValue, Len(vntValue) - 1)
objCell.NumberFormat = "General"
objCell.Value = CDbl(objCell.Value)
End If
End If
Next
'Application.ScreenUpdating = True
End If
End Sub
Letzte Artikel von Enno Wulff (Alle anzeigen)
- Automatisches Eingabefeld [SAPGUI] - 9. Oktober 2025
- So verhinderst du Jobstarts zur falschen Zeit - 15. September 2025
- [apple] iCloud-Photos herunterladen - 21. Juli 2025



